home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / public / fax / src / util / faxcron.sh < prev    next >
Linux/UNIX/POSIX Shell Script  |  1994-08-01  |  10KB  |  372 lines
  1. #! /bin/sh
  2. #    $Header: /usr/people/sam/fax/util/RCS/faxcron.sh,v 1.8 1994/04/18 21:35:05 sam Rel $
  3. #
  4. # FlexFAX Facsimile Software
  5. #
  6. # Copyright (c) 1993, 1994 Sam Leffler
  7. # Copyright (c) 1993, 1994 Silicon Graphics, Inc.
  8. # 
  9. # Permission to use, copy, modify, distribute, and sell this software and 
  10. # its documentation for any purpose is hereby granted without fee, provided
  11. # that (i) the above copyright notices and this permission notice appear in
  12. # all copies of the software and related documentation, and (ii) the names of
  13. # Sam Leffler and Silicon Graphics may not be used in any advertising or
  14. # publicity relating to the software without the specific, prior written
  15. # permission of Sam Leffler and Silicon Graphics.
  16. # 
  17. # THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
  18. # EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
  19. # WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
  20. # 
  21. # IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
  22. # ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
  23. # OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  24. # WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
  25. # LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
  26. # OF THIS SOFTWARE.
  27. #
  28.  
  29. #
  30. # Script to run periodically from cron:
  31. #
  32. # 1. Purge info directory of old remote machine capabilities.
  33. # 2. Truncate log files to delete old information.
  34. # 3. Purge old files in the received facsimile queue.
  35. # 4. Notify about sites that are currently having jobs rejected.
  36. #
  37. SPOOL=/usr/spool/fax
  38. JUNK=/tmp/faxcron$$
  39. XFERLOG=$SPOOL/etc/xferlog
  40. LAST=$SPOOL/etc/lastrun
  41.  
  42. AGEINFO=30            # purge remote info after 30 days inactivity
  43. AGELOG=30            # keep log info for last 30 days
  44. FAXUSER=fax            # owner of log files
  45. LOGMODE=0644            # mode for log files
  46.  
  47. PATH=/bin:/usr/bin:/etc
  48. test -d /usr/ucb  && PATH=$PATH:/usr/ucb        # Sun and others
  49. test -d /usr/bsd  && PATH=$PATH:/usr/bsd        # Silicon Graphics
  50. test -d /usr/5bin && PATH=/usr/5bin:$PATH:/usr/etc    # Sun and others
  51. test -d /usr/sbin && PATH=/usr/sbin:$PATH        # 4.4BSD-derived
  52.  
  53. AWK=nawk
  54. # look for an an awk: nawk, gawk, awk
  55. ($AWK '{}' </dev/null >/dev/null) 2>/dev/null ||
  56.     { AWK=gawk; ($AWK '{}' </dev/null >/dev/null) 2>/dev/null || AWK=awk; }
  57.  
  58. RM="rm -f"
  59. TEE=tee
  60. CP=cp
  61. MV=mv
  62. CHOWN=chown
  63. CHMOD=chmod
  64. UPDATE="date +'%D %R' >$LAST"
  65.  
  66. while [ x"$1" != x"" ] ; do
  67.     case $1 in
  68.     -n)        RM=true; TEE=true; CP=true; MV=true;
  69.         CHOWN=true; CHMOD=true
  70.         UPDATE=true
  71.         ;;
  72.     -*)        echo "Usage: $0 [-n]"; exit 1;;
  73.     esac
  74.     shift
  75. done
  76.  
  77. trap "rm -f \$JUNK; exit 1" 0 1 2 15
  78.  
  79. cd $SPOOL
  80.  
  81. echo "Report failed calls and associated session logs:"
  82. LASTRUN=`cat $LAST 2>/dev/null`
  83. $AWK '
  84. #
  85. # Sort array a[l..r]
  86. #
  87. function qsort(a, l, r) {
  88.     i = l;
  89.     k = r+1;
  90.     item = a[l];
  91.     for (;;) {
  92.     while (i < r) {
  93.             i++;
  94.         if (a[i] >= item)
  95.         break;
  96.         }
  97.     while (k > l) {
  98.             k--;
  99.         if (a[k] <= item)
  100.         break;
  101.         }
  102.         if (i >= k)
  103.         break;
  104.     t = a[i]; a[i] = a[k]; a[k] = t;
  105.     }
  106.     t = a[l]; a[l] = a[k]; a[k] = t;
  107.     if (k != 0 && l < k-1)
  108.     qsort(a, l, k-1);
  109.     if (k+1 < r)
  110.     qsort(a, k+1, r);
  111. }
  112.  
  113. func cleanup(s)
  114. {
  115.     gsub("\"", "", s);
  116.     gsub("^ +", "", s);
  117.     gsub(" +$", "", s);
  118.     return s;
  119. }
  120.  
  121. func isBefore(d)
  122. {
  123.     split(d, a, " ");
  124.     split(a[1], b, "/");
  125.     return (b[3] < LASTd[3] \
  126.      || b[2] < LASTd[2] \
  127.      || b[1] < LASTd[1] \
  128.      || a[2] <= LASTdt[2]);
  129. }
  130.  
  131. func setupToLower()
  132. {
  133.     upperRE = "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]";
  134.     upper["A"] = "a"; upper["B"] = "b"; upper["C"] = "c";
  135.     upper["D"] = "d"; upper["E"] = "e"; upper["F"] = "f";
  136.     upper["G"] = "g"; upper["H"] = "h"; upper["I"] = "i";
  137.     upper["J"] = "j"; upper["K"] = "k"; upper["L"] = "l";
  138.     upper["M"] = "m"; upper["N"] = "n"; upper["O"] = "o";
  139.     upper["P"] = "p"; upper["Q"] = "q"; upper["R"] = "r";
  140.     upper["S"] = "s"; upper["T"] = "t"; upper["U"] = "u";
  141.     upper["V"] = "v"; upper["W"] = "w"; upper["X"] = "x";
  142.     upper["Y"] = "y"; upper["Z"] = "z";
  143. }
  144.  
  145. func toLower(s)
  146. {
  147.     if (match(s, upperRE) != 0) {
  148.     do {
  149.         c = substr(s, RSTART, 1);
  150.         gsub(c, upper[c], s);
  151.     } while (match(s, upperRE));
  152.     }
  153.     return s;
  154. }
  155.  
  156. #
  157. # Accumulate a statistics record.
  158. #
  159. func acct(dest, status, datetime)
  160. {
  161.     if (isBefore(datetime))
  162.     return;
  163.     status = cleanup(status);
  164.     if (length(status) > 11) {
  165.     msg = toLower(substr(status, 1, 11));
  166.     if (callFailed[msg])
  167.         return;
  168.     if (skipError[msg])
  169.         return;
  170.     }
  171.     if (status != "") {
  172.     dest = cleanup(dest);
  173.     datetime = cleanup(datetime);
  174.     for (i = 0; i < nerrmsg; i++)
  175.         if (errmsg[i] == status)
  176.         break;
  177.     if (i == nerrmsg)
  178.         errmsg[nerrmsg++] = status;
  179.     if (errinfo[dest] == "")
  180.         errinfo[dest] = datetime "@" i;
  181.     else
  182.         errinfo[dest] = errinfo[dest] "|" datetime "@" i;
  183.     }
  184. }
  185.  
  186. func printTranscript(canon, datetime)
  187. {
  188.     gsub("[^0-9]", "", canon);
  189.     split(datetime, parts, " ");
  190.     split(parts[1], p, "/");
  191.     cmd = sprintf(TRANSCRIPT, canon, months[p[1]], p[2], parts[2]);
  192.     system(cmd);
  193. }
  194.  
  195. BEGIN        { FS="\t";
  196.           callFailed["busy signal"] = 1;
  197.           callFailed["unknown pro"] = 1;
  198.           callFailed["no carrier "] = 1;
  199.           callFailed["no local di"] = 1;
  200.           callFailed["no answer f"] = 1;
  201.            skipError["job aborted"] = 1;
  202.            skipError["invalid dia"] = 1;
  203.            skipError["can not loc"] = 1;
  204.           months["01"] = "Jan"; months["02"] = "Feb";
  205.           months["03"] = "Mar"; months["04"] = "Apr";
  206.           months["05"] = "May"; months["06"] = "Jun";
  207.           months["07"] = "Jul"; months["08"] = "Aug";
  208.           months["09"] = "Sep"; months["10"] = "Oct";
  209.           months["11"] = "Nov"; months["12"] = "Dec";
  210.  
  211.           split(LASTRUN, LASTdt, " ");
  212.           split(LASTdt[1], LASTd, "/");
  213.           setupToLower();
  214.         }
  215. $2 == "SEND" && NF == 9  { acct($4, $9, $1); }
  216. $2 == "SEND" && NF == 11 { acct($5, $11, $1); }
  217. END        { nsorted = 0;
  218.           for (key in errinfo)
  219.               sorted[nsorted++] = key;
  220.           qsort(sorted, 0, nsorted-1);
  221.           for (k = 0; k < nsorted; k++) {
  222.               key = sorted[k];
  223.               n = split(errinfo[key], a, "|");
  224.               for (i = 1; i <= n; i++) {
  225.               m = split(a[i], b, "@");
  226.               if (m != 2)
  227.                   continue;
  228.               printf "\n"
  229.               printf "To: %-16.16s  Date: %s\n", key, b[1]
  230.               printf "Error: %s\n\n", errmsg[b[2]]
  231.  
  232.               printTranscript(key, b[1]);
  233.               }
  234.           }
  235.         }
  236. ' LASTRUN="$LASTRUN" TRANSCRIPT="\
  237.     LOGFILE=$SPOOL/log/%s;\
  238.     TMP=/tmp/faxlog\$\$;\
  239.     if [ -f \$LOGFILE ]; then\
  240.     sed -n -e '/%s %s %s.*SESSION BEGIN/,/SESSION END/p' \$LOGFILE |\
  241.     sed -e '/start.*timer/d'\
  242.         -e '/stop.*timer/d'\
  243.         -e '/-- data/d'\
  244.         -e 's/^/    /' >\$TMP;\
  245.     fi;\
  246.     if [ -s \$TMP ]; then\
  247.     cat \$TMP;\
  248.     else\
  249.     echo '    No transcript available.';\
  250.     fi;\
  251.     rm -f \$TMP\
  252.     " $XFERLOG
  253. $RM $LAST; eval $UPDATE
  254. echo ""
  255.  
  256. #
  257. # Collect phone numbers that haven't been called
  258. # in the last $AGE days.  We use this to clean up
  259. # the info and log files.
  260. #
  261. find info -ctime +$AGEINFO -print >$JUNK
  262.  
  263. echo "Purge cache of fax machine capabilities:"
  264. for i in `cat $JUNK`; do
  265.     echo "    $i"
  266.     $RM $i
  267. done
  268. echo ""
  269.  
  270. echo "Truncate old session logs:"
  271. TODAY="`date +'%h %d %T'`"
  272. for i in log/*; do
  273.     START=`$AWK -F: '
  274. #
  275. # Setup data conversion data structures.
  276. #
  277. func setupDateTimeStuff()
  278. {
  279.     Months["Jan"] =  0; Months["Feb"] =  1; Months["Mar"] =  2;
  280.     Months["Apr"] =  3; Months["May"] =  4; Months["Jun"] =  5;
  281.     Months["Jul"] =  6; Months["Aug"] =  7; Months["Sep"] =  8;
  282.     Months["Oct"] =  9; Months["Nov"] = 10; Months["Dec"] = 11;
  283.  
  284.     daysInMonth[ 0] = 31; daysInMonth[ 1] = 28; daysInMonth[ 2] = 31;
  285.     daysInMonth[ 3] = 30; daysInMonth[ 4] = 31; daysInMonth[ 5] = 30;
  286.     daysInMonth[ 6] = 31; daysInMonth[ 7] = 31; daysInMonth[ 8] = 30;
  287.     daysInMonth[ 9] = 31; daysInMonth[10] = 30; daysInMonth[11] = 31;
  288.  
  289.     FULLDAY = 24 * 60 * 60;
  290. }
  291.  
  292. #
  293. # Convert MMM DD hh:mm:ss.ms to seconds.
  294. # NB: this does not deal with leap years.
  295. #
  296. func cvtTime(s)
  297. {
  298.     mon = Months[substr(s, 0, 3)];
  299.     yday = substr(s, 5, 2) - 1;
  300.     for (i = 0; i < mon; i++)
  301.     yday += daysInMonth[i];
  302.     s = substr(s, 7);
  303.     t = i = 0;
  304.     for (n = split(s, a, ":"); i++ < n; )
  305.     t = t*60 + a[i];
  306.     return yday*FULLDAY + t;
  307. }
  308.  
  309. BEGIN            { setupDateTimeStuff();
  310.               KEEP = cvtTime(TODAY) - AGE*FULLDAY;
  311.               lastRecord = "$"
  312.             }
  313.             { if (cvtTime($1 ":" $2 ":" $3) >= KEEP) {
  314.                   lastRecord = NR; exit
  315.               }
  316.             }
  317. END            { print lastRecord }
  318. ' TODAY="$TODAY" AGE=$AGELOG $i` 2>/dev/null
  319.     if [ "$START" != 1 ]; then
  320.     sed 1,${START}d $i >$JUNK
  321.     if [ -s $JUNK ]; then
  322.         $MV $JUNK $i; $CHOWN ${FAXUSER} $i; $CHMOD ${LOGMODE} $i
  323.         ls -ls $i
  324.     else
  325.         echo "     Remove empty $i"
  326.         $RM $i
  327.     fi
  328.     fi
  329. done
  330. echo ""
  331.  
  332. #
  333. # Purge old stuff from the receive queue.
  334. #
  335. find recvq -mtime +7 -print >$JUNK
  336.  
  337. echo "Purge old stuff in receive queue:"
  338. if [ -s $JUNK ]; then
  339.     (for i in `cat $JUNK`; do
  340.     bin/faxinfo $i
  341.     $RM $i >/dev/null 2>&1
  342.     done) | $AWK -F: '
  343. /recvq.*/    { file=$1; }
  344. /Sender/    { sender = $2; }
  345. /Pages/        { pages = $2; }
  346. /Quality/    { quality = $2; }
  347. /Received/    { date = $2;
  348.           for (i = 3; i <= NF; i++)
  349.               date = date ":" $i;
  350.           printf "    %-16.16s %21.21s %2d %8s%s\n", \
  351.             file, sender, pages, quality, date;
  352.         }
  353. '
  354. fi
  355. echo ""
  356.  
  357. #
  358. # Note destinations whose jobs are currently being rejected.
  359. #
  360. grep "^rejectNotice:" info/* cinfo/* 2>/dev/null | $AWK -F: '
  361.         { reason = $3;
  362.           for (i = 4; i <= NF; i++)
  363.             reason = reason ":" $i;
  364.           sub("^[ ]*", "", reason);
  365.           if (reason != "") {
  366.               sub(".*/", "", $1);
  367.               printf "Rejecting jobs to +%s because \"%s\".\n", \
  368.                 $1, reason;
  369.           }
  370.         }
  371. '
  372.